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INTRODUCTION 


The  NOSC  Information  Management  Engineering  (IME)  Laboratory  of  Code  423  is  involved  in  a 
variety  of  database  development  efforts,  all  of  which  require  data  input,  preferably  in  electronic  form.  The 
medium  most  frequently  used  to  receive  input  information  and  to  send  finished  database  products  is 
nine-track,  magnetic  tape.  NOSC  Code  423  is  on  the  automatic  distribution  list  for  data  updates  from 
several  information  sources  within  the  Department  of  Defense,  including,  but  not  limited  to,  the  Defense 
Mapping  Agency  and  the  Naval  Intelligence  Activity.  In  addition,  on  an  infrequent  basis,  the  IME  lab 
requires  data  and  software  from  operational  commands  such  as  CINCPACFLT,  CINCLANTFLT,  and 
HQ  PACAF.  These  data  also  are  commonly  received  on  magnetic  tapes.  Internally  generated  tapes,  such 
as  those  used  for  software  backup,  contribute  to  the  total  tape  inventory  archived  and/or  used  by  IME-lab 
database  developers.  These  factors  have  resulted  in  storing  approximately  750  tapes  in  lab  263. 

Many  tapes  used  in  the  IME  lab  are  classified  SECRET  and,  some,  CONFIDENTIAL  and  UNCLAS¬ 
SIFIED.  The  NOSC  Secret  Document  Control  Center  requires  that  document  custodians  be  responsible 
for  safeguarding  SECRET  material  so  that  each  document  can  be  located  during  periodic  reporting  of 
individual  document  holdings.  All  SECRET  tapes  are  bar  coded  and  tracked  as  documents  and  are  sub¬ 
ject  to  inventory.  The  procedure  in  the  IME  lab  includes  manually  logging  SECRET  tapes  into  and  out  of 
the  SCIF  space  in  lab  263  where  they  are  stored. 

An  on-line  computer  system  for  tracking  tapes  clearly  was  needed  to  manage  the  informat;on  about 
each  tape  and  to  assist  custodians  in  performing  the  required  SECRET  document  inventory  using  the 
bar-code  numbers.  This  was  the  motivation  for  developing  the  On-Line  Magnetic  Tape  Library  Inventory 
Tracking  and  Reporting  (LITAR)  system. 

SYSTEM  DESCRIPTION 


The  hardware  comprising  the  LITAR  system  consists  of  a  VAX  8550  and  VT-220  terminals,  with  a 
Centronix  6080  line  printer  and  a  Digital  Print  Server  40  laser  printer. 

The  software  consists  of  VMS  and  ORACLE,  including  custom  software  written  in  VMS  Digital 
Command  Language  (DCL)  (reference  1)  and  ORACLE  Structured  Query  Language  (SQL)  (refer¬ 
ences  2  and  3).  An  ORACLE  table  called  IME_TAPES  was  created  to  contain  the  tape  demographic 
data,  including  the  tape  title,  bar  code,  custodian,  tape  status,  user,  tape  physical  location,  etc.  Table  1 
lists  a  printout  description  of  IME_TAPES,  and  Appendix  A  presents  the  DCL  code  containing  the  SQL 
code  that  generates  the  menus  and  executes  user-generated  commands. 

SYSTEM  OPERATION 


MENUS 

Access  to  the  LITAR  system  is  obtained  from  a  utility  program  called  IME,  which  has  been  used  for 
several  years  in  the  IME  lab.  The  program  that  produces  the  IME  Facility  Management  Directory  menu  is 
executed  by  the  VMS  operating  system  by  typing  IME  after  the  DCL  prompt: 

$  IME  <RETURN> 
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Table  1.  ORACLE  CREATE  TABLE  file  for  the  L1TAR  IME  TAPES  table. 


DROP  TABLE  IME_TAPES; 
CREATE  TABLE  IME_TAPES  ( 


TAPE_TITLE 

CHAR(28) , 

/*  ACTUAL  TITLE  ON  OUTSIDE  OF  THIS  TAPE 

V 

NOSC_BAR_CODE 

CHAR(7) , 

/*  RED  NOSC  BAR  CODE  NUMBER 

V 

SECURITY_CLASS 

CHAR (9) , 

/*  SECURITY  CLASSIFICATION 

V 

CONTENT 

CHAR (13) , 

/*  CONTENTS  OF  THE  TAPE 

V 

EXTERNAL  NBR 

CHAR(IO) , 

/*  TAPE  NUMBER  ON  OUTSIDE  OF  TAPE. 

*/ 

CREATED_BY 

CHAR (20) , 

/*  WHO  CREATED  THIS  TAPE  ? 

V 

STATUS 

CHAR(l) , 

/*  A=ACTIVE ,  I=INACTIVE ,  S=SCRATCH 

*/ 

DATE_CREATED 

DATE, 

/*  DATE  TAPE  WAS  CREATED 

*/ 

CUSTODIAN 

CHAR(IO) . 

/*  WHO  IS  RESPONSIBLE  FOR  THE  TAPE 

*/ 

DATE__IN 

DATE, 

/*  DATE  ENTERED  INTO  THIS  DATABASE 

V 

DATEOUT 

DATE, 

/*  DATE  SENT  TO  SOME  OTHER  FACILITY 

*/ 

DESTINATION 

CHAR (15) , 

/*  WHERE  THE  TAPE  IS  TO  RESIDE 

*/ 

USER_LAST_NAME 

CHAR (15) , 

/*  PERSON  USING  THE  TAPE 

V 

LAB_263_RACK 

CHAR ( 1 ) , 

/*  CABINET  IN  263  WHERE  TAPE  LOCATED 

V 

REMARKS 

CHAR (80) 

/*  REMARKS 

*/ 

) 

SPACE  MEDIUM 


INSERT  INTO  IMEJTAPES 
VALUES  (  "  ,  "  , 


This  displays  the  highest-level  menu  in  the  menu  hierarchy;  it  is  called  the  IME  Facility  Management 
Directory.  To  access  the  LITAR  system,  the  user  selects  the  Tape  Management  option  from  this  menu  by 
typing: 

ENTER  SELECTION  #:  6  <RETURN> 

This  command  displays  the  Tape  Menu  screen  from  which  the  user  selects  the  Tape  Inventory  Reports 
(LITAR)  option  by  typing: 

ENTER  SELECTION  #:  2  <RETURN> 

This  places  the  user  at  the  LITAR  menu  level,  identified  by  the  banner,  LAB  263  INVENTORY 
REPORTS.  The  options  in  this  menu  are  as  follows: 


1. 

LIST 

TAPES 

BY 

TITLE 

2. 

LIST 

TAPES 

BY 

BAR_CODE 

3. 

LIST 

TAPES 

BY 

CUSTODIAN 

4. 

LIST 

TAPES 

BY 

CONTENT 

5. 

LIST 

TAPES 

BY 

LAB  263  RACK  NUMBER 

5. 

Exit 

to  VAX 

Press  <RETURN>  to  exit. 

QUERIES 

Each  option  executes  a  query  from  a  set  of  predefined  queries.  For  example,  suppose  the  user  types 
the  following  to  obtain  a  report  of  tapes  assigned  to  a  custodian  named  SMITH: 

ENTER  SELECTION  ft\  3  <RETURN> 
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This  displays  a  description  of  the  IME_TAPES  table,  including  attribute  name,  type,  and  length,  that  ap¬ 
pears  under  the  screen  followed  by  another  prompt: 

DO  YOU  WANT  TO  QUALIFY  THE  REPORT  WITH  A  WHERE  CLAUSE?  (Y/N) : 

This  option  allows  the  user  to  enter  “where”  conditions  to  qualify  the  query  and  limit  the  results.  To  use 
this  feature,  the  user  must  have  some  knowledge  of  SQL  (reference  2).  The  user  would  type: 

Y  <RETURN> 

The  default  for  no  qualifiers  is  N  or  anything  else  except  Y.  The  system  responds  by  displaying  the  follow¬ 
ing  test: 

SQL> 

Disconnect  from  ORACLE  V5.1.22  -  Production 
USE  APPROPRIATE  FIELD  NAMES  FROM  THE  ABOVE  DESCRIPTION  TO 

DETERMINE  YOUR  WHERE  CONDITION.  EXAMPLE:  LAB_263_RACK  =  ‘4’  AND  STATUS  =  ‘A’. 

NOW,  CONTINUE  THE  QUALIFYING  WHERE  CONDITION  BELOW 
The  user  answers  with: 

CUSTODIAN  =  ‘SMITH’ 

Here  the  user  must  type  in  the  exact  attribute  name  from  the  displayed  table  description.  All  kinds  of 
valid  SQL  “where”  clauses  are  allowed,  including  clauses  with  “like”,  “in”,  “having”,  and  “%”.  The  user 
is  expected  to  be  familiar  with  the  ranges  and  domains  of  each  attribute.  In  the  above  example  of  screen 
text,  the  STATUS  attribute  can  have  two  values,  A  for  active  and  I  for  inactive.  Here,  the  A  case  was 
selected. 


REPORTS 

The  LITAR  system  reports  the  results  of  the  query  to  the  user’s  terminal  and  creates  an  ASCII  file 
containing  the  results  in  the  user’s  default  directory.  An  option  is  available  to  print  the  file  on  the  laser 
printer.  Various  reports  are  available  with  data  displayed  in  the  order  of  the  main  attribute  selected.  For 
example,  if  the  user  selected  2.  LIST  TAPES  BY  BAR_CODE,  the  records  would  appear  in  sequence 
with  the  consecutive  bar  code  number.  An  example  of  a  report  generated  by  the  LITAR  system  is  shown 
in  Appendix  B.  To  obtain  a  report,  respond  with  Y  <RETURN>  after  the  following  prompt: 

DO  YOU  WANT  TO  PRINT  THIS  REPORT  ON  THE  LASER  PRINTER?  (Y/N) : 

This  will  display  the  following  on  the  screen: 

JOB  "JOB  NAME"  (Queue  ANSI_LPS40,  ENTRY  #)  Started  on  LPS40SLPS40 

Then,  upon  pressing  <RETURN>,  the  LAB  263  TAPE  INVENTORY  REPORTS  menu  will  appear.  At  this 
point,  another  report  can  be  started,  or  the  user  may  exit. 

If  the  N  option  is  chosen  after  the  prompt,  DO  YOU  WANT  TO  PRINT  THIS  REPORT  ON  THE  LASER 
PRINTER?,  a  <RETURN>  will  automatically  transfer  the  user  to  the  LAB  263  TAPE  INVENTORY  REPORTS 
menu. 


3 


DATA  ENTRY  SCREEN 


The  ORACLE  SQL* FORMS  (reference  3)  data  input  screen  can  be  used  to  query  specific  records 
and  to  perform  updates,  deletes,  and  inserts.  To  access  the  system,  press  <RETURN>  until  the  TAPE  MENU 
screen  appears  on  the  terminal.  Select  the  Tape  Screens  option: 

ENTER  SELECTION  #:  1  <RETURN> 

A  screen  will  appear  like  the  one  shown  in  figure  1 .  Help  messages  appear  in  the  lower  banner  to  assist 
the  user  with  entering  the  correct  data  and  with  formulating  queries.  To  access  the  ORACLE 
SQL* FORMS  help  facility  from  a  VT  220,  press  the  HELP  key.  After  data  are  entered  into  the  screen,  the 
user  can  commit  the  transaction,  causing  ORACLE  to  execute  the  appropriate  SQL  query. 


* 

TAPES  * 

TAPE  TITLE 

NOSC  BAR  CODE 

SEC.  CLASS. 

CONTENT 

EXTERNAL  TAPE  # 

CREATED  BY 

STATUS 

DATE  CREATED 

LOCAL  * 

CUSTODIAN 

DATE  IN 

DATE  OUT 

DESTINATION 

LOCAL  USER 

LAST  NAME 

LAB  263  STORAGE 

RACK  NUMBER  (0  - 

5)  _ 

REMARKS 

Figure  1.  ORACLE  SQL* FORMS  tape  screen  for  data  entry. 


EXIT 

To  exit  from  the  LITAR  system,  simply  type  <RETURN>  successively.  Each  <RETURN>  exits  to  the 
next  higher-level  menu  until  the  DCL  prompt,  $,  appears. 


DISCUSSION 


Configuration  management  personnel  are  considering  the  LITAR  system  for  use  with  the  Operations 
Support  System  program.  The  system  can  be  adapted  to  include  hard  copy  documents,  optical  storage 
media,  floppy  disks,  or  any  other  document  form.  Plans  for  the  system  include  automatically  updating  the 
database  table  whenever  a  system  backup  is  performed  on  the  VAX  8550. 
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APPENDIX  A 


MENU-GENERATION 

AND 

COMMAND-EXECUTION 

CODES 


A-i 


TAPE  LIBRARY  REPORTING  SYSTEM 


$  ! 

$  ! 

$  ! 

$  ! 

$  ! 

$  ! 

$  ! 

$  ! 

$  ! 

$  ! 

$  ! 

$  ! 

$  !  - 
$  ! 

$!-■ 
$  ! 

$ 

$  ! 

$!- 

$ 

$ : 

$ 

$ 

$  ! 

$  !  - 
$  ! 

$ 

RAM 


it 


This  command  file  provides  a  user-friendly  interface  for  access 
to  data  contained  in  the  LAB  263  TAPE  LIBRARY  DATABASE. 

Several  options  are  provided  for  sending  selected  DATABASE  info 
to  the  LAB  263  laser  printer. 

To  use  this  command  file,  type  ....  @TAPE_REPORTS 
Developed  by  Dick  Auclair,  NOSC,  San  Diego,  CA  FEB  1991 


Establish  logical  for  use  in  this  command  file 


WS  :=  WRITE  SYS$OUTPUT 


ON  WARNING  THEN  GOTO  ERROR_MESSAGE  !  SEE  ERROR_MESSAGE :  AT  END  OF  LISTING 

ON  OONTROL_Y  THEN  GOTO  MAIN_EXIT 
SET  CONTROL  Y 


ORACLE  LOG  IN  ="USERNAME/PASSWORD"  !  CHANGE  HERE  ONLY  TO  AFFECT  WHOLE  PROG 


$! 

$  . - 

$  ! - 

$ !  TAPE  LIBRARY  REPORTS  MENU 

$  ! - 

$  ! - 

$' 

SMENU: 


$ 

WS  "" 

CLEAR  SCREEN 

$ 

SET  TERM/WIDTH=8  0 

$ 

WS  "" 

'.Reverse  Video,  next  lines  are 

double 

$ 

WS  " 

ft 

$ 

WS  " 

If 

$ 

WS  " 

LAB  263  TAPE 

INVENTORY  REPORTS 

l? 

$ 

WS  " 

LAB  263  TAPE 

INVENTORY  REPORTS 

” 

$ 

WS  " 

$  WS  " 

$  WS  " 

$  WS  " 

$  WS  " 

$  WS  " 

$  WS  " 

S  WS  " 

$  WS  " 

$  WS  " 

$  WS  " 


1.  LIST  TAPES  BY  TITLE 


2.  LIST  TAPES  BY  BAR  CODE 


3.  LIST  TAPES  BY  CUSTODIAN 


4.  LIST  TAPES  BY  CONTENT 


5.  LIST  TAPES  BY  LAB  263  RACK  NUMBER 


Press  <RETURN>  to  exit 


$  WS  " 

$  WS  " 

$  WS  " 

$  WS  ""  ! Turns  off  reverse  video 

$  ! 

$  ! - 

S'.  Determine  selection,  then  branch  accordingly,  redisplay  main  menu 


$  ! 

if  entry  is  not  valid. 

- 

$  ! 

$ 

INQUIRE  WHICH 

_MENU 

fl 

ENTER  SELECTION  #” 

V  • 

$ 

IF  WHICH  MENU 

.  EQS 

tl  II 

THEN 

GOTO 

MAIN  EXIT 

$ 

IF  WHICH  MENU 

.  EQS 

It  ^  II 

THEN 

GOTO 

LIST  BY  TITLE 

$ 

IF  WHICH  MENU 

.EQS 

n  2  « 

THEN 

GOTO 

LIST  BY  BAR  CODE 

$ 

IF  WHICH  MENU 

-EQS 

it  ^  11 

THEN 

GOTO 

LIST  BY  CUSTODIAN 

$ 

IF  WHICH  MENU 

.EQS 

"4" 

THEN 

GOTO 

LIST  BY  CONTENT 

$ 

IF  WH I CH_MENU 

.EQS 

n  5" 

THEN 

GOTO 

LIST  BY  RACK  NUMBER 

•?  ■ 

$ 

$! 

$  ! 

GOTO  MENU 

!  RETURN  TO  MENU 

$LIST_BY_TITLE : 

$  WS  " 

n 

$  ws  " 

♦t 

$  FIE LD_t'AME S  :  =  "TAPE_TITLE,  CUSTODIAN,  IAB_2 6 3_RACK ,  NOSC_BAR_CODE,  EXTERNAL_NBR 

,  SECURITYJCLASS, REMARKS" 

$  SPOOL_FILE_NAME  :=  "IAB263_TAPES_REPORT_BY_TITLE . SPOOL" 

$  ! 

$  GOSUB  SET_UP_AND_EXECUTE_SQL_COMMANDS 
$  ! 

$ !  INQUIRE  WAIT  "  PRESS  RETURN  TO  CONTINUE" 

$  GOTO  MENU 

$  ! 

$!  - 


$LIST_BY_BAR_CODE : 

$  WS  " 

II 

$  WS  " 

»» 

$  FIELD_NAMES  : =  "NOSC_BAR_CODE,  EXTERNAL_NBR,  TAPE_TITLE,  CUSTODIAN,  LAB_263_RACK 
,  SECURITY_CLASS, REMARKS" 

$  SPOOL_FILE_NAME  :=  "LAB263_TAPES_REPT_BY_BARCODE . SPOOL" 

$  ! 

$  GOSUB  SET_UP_AND_EXECUTE_SQL_COMMANDS 
$  '. 

$ !  INQUIRE  WAIT  "  PRESS  RETURN  TO  CONTINUE" 

$  GOTO  MENU 

$  ! 

$  !  - 


$LIST_BY_CUSTODIAN: 

$  WS  " 

W 

$  WS  " 

it 

$  FIELD_NAMES  :=  "CUSTODIAN,  TAPE_TITLE,  LAB_2 6 3_RACK ,  NOSC_BAR_CODE,  EXTERNAL_NBR 
, SECURITY  CLASS, REMARKS" 
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$  SPOOL_FILE_NAME  :=  "LAB2 63_TAPES_REPT_BY_CUSTODIAN . SPOOL" 

$  ! 

$  GOSUB  SET_UP_AND_EXECUTE_SQL_COMMANDS 

$  ! 

$ !  INQUIRE  WAIT  "  PRESS  RETURN  TO  CONTINUE" 

$  GOTO  MENU 

$  ! 

$  !  - 


$LIST_BY_CONTENT : 

$  WS  " 

•I 

$  WS  " 

II 

$  FIE LD_NAME S  :=  "CONTENT, TAPE_TITLE,  LAB_2  63_RACK, N0SC_3AR_C0DE, EXTERNAL_NBR,  S 

ECURI TY_CLAS S , REMARKS " 

$  SPOOL_FILE__NAME  :=  "LAB263_TAPES_REPT_BY_CONTENT . SPOOL" 

$  ! 

$  GOSUB  SET_UP_AND_EXECUTE_SQL_COMMANDS 
$  ! 

$ !  INQUIRE  WAIT  "  PRESS  RETURN  TO  CONTINUE" 

$  GOTO  MENU 

$  ! 

$'.  - - 


$  LIS  T__B Y_RACK_NUMBER : 

$  WS  " 

H 

$  WS  " 

II 

$  FIELD_NAMES  : =  " LAB_2 6 3_RACK , TAPE_TITLE, CUSTODIAN, NOSC_BAR_CODE, EXTERNAL_NBR 
,  SECURITY_CLASS , REMARKS " 

$  S P OOL_F I LE_NAME  :=  "LAB2 63_TAPES_REPT_BY_RACK .  SPOOL" 

$  ! 

$  GOSUB  SET_UP_AND_EXECUTE_SQL_COMMANDS 
$  ! 

$ !  INQUIRE  WAIT  "  PRESS  RETURN  TO  CONTINUE" 

$  GOTO  MENU 

$  ! 

$!  - 


$! 

$EEROR_MESSAGE : 

$  WS  "  " 

$  WS  "  An  error  has  been  detected." 

$  WS  "  " 

$  ws  "  Analyze  the  problem,  try  to  fix  it,  then" 

$  WS  "  " 

$  ! 

$  INQUIRE  HOLD_SCREEN  "  Press  <RTN>  to  continue  at  MAIN  MENU" 

$  ! 

$  GOTO  MENU 

$  ! 

$MAIN_EXIT : 

$  WS  ""  '.Turns  off  reverse  video 

$  ! 

$  EXIT 

£  I  *********★**★***★*★★★*★*★*★*★★★* 

$! ******  SUBROUTINE  FOLLOWS  ****** 

£  f  I******************************** 

$  ! 

$SET_UP_AND_EXECUTE_SQL_COMMANDS : 

$  ! 

$  INQUIRE  YES_NO  "DO  YOU  WANT  TO  QUALIFY  THE  REPORT  WITH  A  WHERE  CLAUSE  ?  (Y/N) 

)  " 

$  IF  YES  NO  .NES.  "Y"  .AND.  YES_NO  . NES .  "y"  THEN  GOTO  SET_UP_SQL 
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$ 

$  SQL  ' ORACLE_LOG_IN' " 

DESCRIBE  IME_TAPES 

$  WS  "  USE  APPROPRIATE  FIELD  NAME  FROM  THE  ABOVE  TABLE  DESCRIPTION  TO  DETERMI 
NE" 

$  WS  "  YOUR  WHERE  CONDITION.  EXAMPLE:  LAB_263_RACK  =  '4'  AND  STATUS  !=  'A' 

$  WS  " 

n 

$  WS  "  NOW,  CONTINUE  THE  QUALIFYING  WHERE  CONDITION  BELOW" 

$  READ  SYS$ COMMAND  WHERE_CONDITION/PROMPT="  WHERE  " 

$ ! 

$  SET_UP_SQL: 

$  OPEN/WRITE  TMP1  TT_SQL_COMMANDS . TEMP 

$  WRITE  TMP1  "SPOOL  ' ' SPOOL_FILE_NAME ' " 

$  WRITE  TMP1  "SELECT  ' ' FIELD_NAMES '  from  IME_TAPES" 

$  IF  YES_NO  .NES.  "Y"  .AND.  YES_NO  .NES.  "y"  THEN  GOTO  B YP AS S_WHERE_CLAU S E 

$  WRITE  TMP1  "WHERE  ' ' WHERE_CONDITION' " 

$  BYPASS_WHERE_CLAUSE : 

$  WRITE  TMP1  "ORDER  BY  '  ' FIELD_NAMES ' " 

$  WRITE  TMP1 

$  CLOSE  TMP1 

§  ! 

$  WS  ""  !  CLEAR  SCREEN 

§ ! 

§  i  *************************************************************************** 

$  !  **  LOG  IN  TO  SQL  -  SQL  COMMANDS  IN  TT__SQL_COMK-  ...  3 .  TEMP  WILL  BE  EXECUTED  ** 

$!  *************************************************************************** 
S! 

$  SQL  ""ORACLE_LOG_IN' " 

TTITLE  ' IME  TAPE  INVENTORY  REPORT' 

BTITLE  '  '  - 

SKIP  CENTER  'IME  TAPE  INVENTORY  REPORT' 

SET  PAGES I ZE  60 

COLUMN  TAPE_T I TLE  FORMAT  A2  6  HEADING  ' TAPE_T I TLE '  WORD_WRAPPED 
COLUMN  CUSTODIAN  FORMAT  All  HEADING  'CUSTODIAN' 

COLUMN  LAB_2 6 3_RACK  FORMAT  A4  HEADING  'RACK' 

COLUMN  NOSC_BAR_CODE  FORMAT  A8  HEADING  'BARCODE' 

COLUMN  EXTERN AL_NBR  FORMAT  A10  HEADING  ' EXT_TAPE_# ' 

COLUMN  SECURITY_CLASS  FORMAT  A9  HEADING  'CLASSIF' 

COLUMN  REMARKS  FORMAT  A76  HEADING  'REMARKS' 

SET  ECHO  ON 
SET  NEWPAGE  0 


START  TT  SQL  COMMANDS . TEMP 


EXIT 

$  ! 

$  DELETE  TT_SQL_COMMAND  S . TEMP . * 

$ ! 

$  ! 

$  ! 

$! 

§  ! 

$  WS  " 


!  NOTE  THE  TT  WAS  ADDED  TO  FILE  NAME 
TO  MAKE  IT  MORE  UNIQUE  SO  THAT  THE 
ODDS  ARE  GREATER  THAT  A  FILE  OF  SAME 
NAME  WILL  NOT  PREVIOUSLY  EXIST  AND 
ACCIDENTALLY  GET  DELETED  HERE. 


$  INQUIRE  YES_NO  "DO  YOU  WANT  TO  PRINT  THIS  REPORT  ON  THE  LASER  PRINTER  ?  (Y/N). 
)  " 

$  IF  YES  NO  .NES.  "Y"  .AND.  YES_NO  .NES.  "y"  THEN  GOTO  CONTINUE 

$  ! 

$  LASER  ' ' ' SPOOL  FILE_NAME' ' 

$  ! 

$  CONTINUE: 

$  WS  " 


$  RETURN 


!  RETURN  FROM  SUBROUTINE 
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EXAMPLE  OF  LITAR  SYSTEM-GENERATED 
IME  TAPE  INVENTORY  REPORT 
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SQL>  SELECT  NOSC_BAR_CODE , EXTERNAL_NBRTAPE_T I TLE , CUSTOD I AN , LAB_2  6  3_RACK , 
SECUR I TY_CLASS, REMARKS  from  IME_TAPES 

2  WHERE  NOSC_BAR_CODE  LIKE  'S9607%' 

3  ORDER  BY  NOSC_BAR_CODE , EXTERNAL_NBRTAPE_T I TLE , CUSTOD I AN , LAB_2  6  3_RACK , 
SECUR I TY_CLASS, REMARKS; 


February 

4,  1991 

IME  TAPE 

INVENTORY  REPORT 

BARCODE 

EXT_TAPE_# 

TAPE_TITLE 

CUSTODIAN 

RACK  CuASSIF 

REMARKS 


S960710  1203 

DATA  LOADED  1  FEB 

NXPR1 . NOSC . NBO 

91 

JOHN 

4 

S 

S960711  A034  NCPR1.NOSC.MBO 

TRANSFERRED  TO  NEW  CUSTODIAN 

JANE 

4 

S/NF 

S9607 14 

90SD9 

CIDSS  DB/SITE 

JILL 

2 

S 

S960727 
ORACLE  6 

WY882 

EXPORTS 

ALL  FLAG  NAVAL  SHIP  ID 
ONLY 

JACK 

2 

u 

S960777 
ORACLE  5 

SD008 

EXPORTS 

DMAAC/MCBS 

JANE 

1 

c 

S960787  N433 

FLAT  FILES 

LANTFLT  WWMCCS  DATA 

JANE 

1 

s 

S960788 

23J5 

LANTFLT  XXZ 

JANE 

1 

S/NF 

FLAT  FILES,  NEW  FORMAT 
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